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It is extremely pleasing to witness the demonstrated growth and 
th-? on*, iou? maturity that this corporation has achieved. Both oi.c 
member-ship and the number of pages in The STACK have doubled since I 
took office in January, 1982, It is especially pleasing to read the 
■excellent ' technical articles that are now being submitted to Frank 
Davidoff and Al Levy with regularity. 
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A Byte to the Core by Er i k Klein 

This month I would like to reproduce a report that I have written 
for the Long Island Math Fair. The topic that I chose to develop was 
(is) structured programming. The concepts themselves are very hard to 
develop but harder still is trying to relay them in a clear and 
concise manner. 1 tried and hope that I have succeeded. 

^ The ideas that I have developed are not yet fully matured. Any 
criticism, ideas, or thoughts that you the reader and the computer 
user, cotild relay to me, would be appreciated. The comments made are 
all generalizations, they are not the gospel! Take them liahtly but 
understand their intent. 

With the advent of .tjje,. inexpensive memory chips and the sixteen 
bit microprocessors, the microcomputer world is in for a startling 
revolution. The microcomputers that are being introduced today use 
both of these H-^s + -" *-he r.*-o-" > * ~— -*-->-<•. « r..-^.- -..-.•■ ^r } - '--? ,-• *v 7 - r -q «-bem th^ 
resources with which they can write ory^uzea, structured programs 
New machines such as the Apple LISA, "the DEC Rainbow 100 and the IBM 
Personal Computer all contain sixteen bit processors as well as., ranch 
increased user RAM {random access memory). This increased memory 
supplies the programmer with enough space to create well written and 
well structured programs. The processors are important because they 
can address the large amounts of memory. \ 

Back in the dawn of microcomputer history (all of seven years 
ago) the computers produced were expensive, slow, and small. They 
often were limited to less then 8k (Ik = 1024 Bytes and 1 byte = 8 
bits) of RAM. The BASIC supplied with them wa,s small and not very 
powerful. The eight bit microprocessors cou 1 ^ only address 64k of 
memory^ -o^-cio fulby expand* chesv vachii were lima . . ,;■- _- Apple 
\i + t A..ari 800's and . thej._ •famixy 1 or computers were vast 
improvements over the IMSAI's and ALTAJR's of just a few years ago. 
However, they too, are for the most part stilj inadequate for the task 
of processing structured languages. They hacf larger BASIC'S and they 
even had other languages such as Pascal and micro-FORTRANS but their 
memory was still limited to 64k per machine. This memory limit forced 
the programmer to squeeze his code into a 32k workspace. This is a 
lot, but not enough for structure. The newest micros to hit the 
market are the best suited, so far, for the 'structured' idea. Before 
we get into their capabilities, lets first define what a structured 
program is; 

Structured Program: Any piece of code that is organized, well 
documented and easy to read. The ability to return to a six month old 
program and tell what it was meant to do and the ability of another 
programmer to follow the code are definite signs. 

The program listing #2 illustrates the type of unstructured hard 
to read code that most programmers entered into their' old machines. 
Program #1, on the other hand, is what I hope to be seeing more of on 
these new machines. The code is organized, clear, linear and is easy 
to read. The variables have long descriptive names, are typed and are 
defined prior to their use. There is also a REMark (•) after every 
unconditional jump in the program. The code segments are short, well 
defined ^ and blocked off by REM's. Code is well placed with each line 
containing as few statements as possible and indentation of decisions 
and FOR - NEXT loops is present. 
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A By te to the ^ Core by. Erik Klein. . . . continued 

The program also shows a linear type of structured -coding called 'top 
down programming'. The main program is just a set of declarations, 
organizational routines ■ and GOSUB's that put control into the 
functioning segment or procedure. GOTO's are found rarely, if ever, 
in a structured program. They are forbidden! The program in listing 
#2 has short variable .names, compressed code and a slightly less 
organized set of procedures. The code is also totally devoid of 
REM's, The REMark statements and the long variable names take up 
large amounts of disk space and memory because they are stored 
verbatim, whereas the program statements are tokenized. This means 
that a remark line might take up about 50-80 Bytes of memory while a 
GOTO or another statement takes up about two' Bytes, 

This is why memory is so important. Th.e faster processor helps 
because REM's can slow a program down while adding readability. The 
previous statements hold true for compiled languages such as Pascal 
and FORTRAN as well. The source code is larger with comments but . the 
compiler will remove them so that the executable file is about the 
same size for the same application. This is all well and good but we 
still have not defined a "structured" program, The following 
guidelines should help. 

a. E>ut comments in your program wherever there is the slightest 
chance that the reader might get confused.. . 

b. Type all of your variables in the following manner: : ' - 
$ - For Character variables ^ . . 

# - For Integer variables 

! - For Single Precision Reals 

c. Place a definition segment in the first few lines of your 
program. These lines should contain the date on which the 
program was written, the programs author, the function of the 
program, and a comprehensive list of all of the variables in the 
program as well as their functions. 

d. Use as few statements per line as possible. 

e. Set off all procedures, moduals or functions with REMark 
statements , 

f. Mar>k;-the end ..of all procedures with a "procedure end" mark of 
sorts . 

g. Use some form of linear coding such as the top down type as 
demonstrated in program #1 

The Structured route is not for every programmer or for every 
program. The nobbiest- . programmer will probably reject the structured 

idea and the short quickie program .does not need to be structured at 
all. The guidelines set down are also fairly flexible and do not ail 
have to be used. In general it would be very nice to see more 
structured programs in this world, 1 have personally written many 
programs that I have wanted to update quickly but couldn't because it 
took too long a time to figure out what I had done. 

There are a few comments in this text that could be taken as 
negative, I hope that you will take some of them with a grain of salt 
because as I have said, my idea-: are as of yet not fully developed, I 
like the machines that 1 seem to be putting down. I learned from them 
and I have enjoyed using them. 1 like my machine better simply, 
because it is the one that I happen to own. 
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Listing #1 
Erik Klein 3-10-83 Program #1 // Grades and averages 



This program will read a list of 60 grades into a 
matrix and it will: 

a. Print a chart of the grades and their recipients 

b. Print the average of all of' the grades 

c. Print grades from test #6 
100 ' d. Print Grades for "Sandy" 
110 * ' e. Sort and Print the grades 
120 * f. Print the highest grade, 
130 • ' g. Print the Average grade. 
150 ' 

160 ' Variables: 

'180 ' ' ****************** 

190 ' * I = Real • * 

200 ' ' * # = Integer * 

210 • * S = Character * 

220'*' ****************** 

230 « 

240 • GRADE. MAT! — HOLDS GRADES IN 2D ARRAY 

250 ' GRADE, LIST! -- HOLDS GRADES IN LIST 

260 ' R0W.IND1 — ROW INDEX FOR READ 

270 « COL.INDI — COLUMN INDEX FOR READ 

280 « TEST.NUMI — HOLDS TEST NUMBER 

290 « ROW. PRINT — INDEX FOR PRINTING ROWS 

380 ■ COL. PRINT! — INDEX FOR PRINTING COLUMNS 

310 ' COL. 6! — INDEX FOR PRINTING COLUMN SIX GRADES 

320 « NAME. 6$ ~ HOLDS STUDENT NAME FOR PRINTING ' 

330 * SANDY. PRINT! -- INDEX TO PRINT SAND1ES GRADES 

340 * GET. GRADE! — HOLDS GRADES PENDING STORAGE IN GRADE. LIST! 

350 ' OUTER! — OUTER LOOP INDEX IN SORT 

360 ' INNJ3RJ -- INNER LOOP INDEX IN SORT 

370 ' SORT. PRINT! -- INDEX IN LOOP TO PRINT SORTED VARIABLES 

380 « COMPUTE. AVG! — INDEX FOR AVERAGE LOOP 

390 * SUM! -- SUM OF ALL GRADES 

400 » AVERAGE. GRADE! -- HOLDS THE AVERAGE GRADE 

410 ' STUDENT. NAME$ — HOLDS THE STUDENTS NAME PENDING PRINTING 

420 ' 

430 CLS 'Clear Screen 

440 « 

450 DIM GRADE. MAT! (5,12) , GRADE. LIST1 (60) 

460 ' 

'470 GO SUB 640 '** Read Grades into GRADE. MAT 

480 GOSUB 770 ' ** Print Out Chart of Grades and Students 

490 GOSUB 970 » ** Print Grades for Test #6 

'500 GOSUB '117'0 " '** Print "Sandies" Grades 

510 'SO SUB 1320 *** Poad Grades into GRADE. LIST 

520 GOSUB 1440 '** Sort Grades in GRADE. LIST 

530 GOSUB 1570 '** Print Sorted List 

540 GOSUB, 1710 «** Print Highest Grade 

550 ! GOSUB' 1&20 '** Print Average Grade 

5§0' ' ' 

580 END ; '" ' ' ' ' ' 
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590 *********************************************** 

600 '* Main Ends // Subroutines Begin'' * 
610 *********************************************** 

6 20 * 

630 « ; '" 

640 »*** procedure to read grades into GRADE. MAT *** 

650 « 

660 FOR ROW.IND! = 1 TO 5 

670 FOR COL. IND! = 1 TO 12 

680 READ GRADE. MAT! (ROW. IND! , COL. IND!) 

890 NEXT COL. IND! 

700 NEXT ROW.IND! 

710 RETURN 

720 «*** { END OF PROCEDURE ] *** 

730 ' 

740 • 

750 '*** procedure to print out table of grades *** 
760 » 

770 PRIMT TAB( 8) ; 

780 FOR TEST.NOM! = 1 TO 12 

790 PRINT TEST.NOM!;" " ; 

800 IF TEST.NCJM! < 10 THEN PRINT " " ; 

818 NEXT TEST.NOM! 

820 PRINT 

830 FOR ROW. PRINT! = 1 TO 5 

840 READ STUDENT. NAME9 

850 PRINT ' ' 

860 PRINT STUDENT. NAM£$ ; 

870 PRINT TAB( 8) ; 

880 EOR COL, PRINT! = 1 TO 12 

890 PRINT GRADE. MAT! (ROW. PRINT!, COL. PRINT!) ;" " ; 

900 NEXT COL. PRINT! 

910 NEXT ROW. PRINT! 

920 RETURN 

930 ' 

940 «*** { END 0F PROCEDURE ] *** 

950 » 

970 «***. Procedure to print grades from test #6 *** 

980 ' 

990 PRINT 

1000 PRINT 

1010 PRINT •« -_____„> Grades for the Sixth Test <■ 

1020 PRINT 

1030 RESTORE 2010 

1040 'Restore names data 

1050 FOR COL. 6! = 1 TO 5 

I860 READ NAME. 6$ 

1870 PRINT NAME. 65; 

1080 PRINT TAB( 20 ) ;GRADE . MAT ! (COL . 6 I , 6 ) 

1090 NEXT COL. 6! 

1108 PRINT 

1110 PRINT 

1120 RETURN 

1130 « 

1140 '*** { END OF PROCEDURE ] *** 
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*** procedure to Print Sandies Grades *** 



PRINT " — ■-> Sandies Grades <--• 

PRINT 

PRINT "Sandy " ; 

FOR SANDY. PRINTl = 1 TO 12 

PRINT GRADE. MAT! (-3, SANDY. PRINT!) ?' 
NEXT SANDY. PRINT! 
PRINT 
PRINT 
RETURN 

*** [ END OF PROCEDURE ] *** 



*** Procedure to Read Grades into GRADE. LIST 

RESTORE 

•Restore all Data 

FOR GET. GRADE! * 1 TO 60 

READ GRADE. LIST! (GET. GRADE!) 
NEXT GET. GRADE! 
RETURN 



*** 



[ END OF PROCEDURE ] 



*** 



** Bubble Sort to Put GRADE. LIST into Numerical Order 



** 



FOR OUTER! = 1 TO 59 

FOR INNER! = OUTERi+1 TO 60 

IF GRADE. LISTU.OUTER!) > GRADE. LIST! { INNER! ) THEN 1500 
SWAP GRADE. LIST! (INNER!) , GRADE. LIST! (OUTER!) 
NEXT INNER! 
NEXT OUTER! 
RETURN 

*** [ END OF PROCEDURE ] *** 



* Procedure to Print Sorted List of Grades [GRADE. LIST] * 



PRINT " — ■ > Sorted List of Grades <- 

PRINT 

FOR SORT. PRINT! = 1 TO 60 

PRINT GRADE. LIST! (SORT. PRINT! ) ;" " ; 

NEXT SORT. PRINT! 

PRINT 

PRINT 

RETURN 
i 

'*** [ END OF PROCEDURE ] *** 



'*** Print Highest Grade *** 

PRINT " ■ > Highest Grade <• 

PRINT 

PRINT GRADE. LIST! (1) 

PRINT 

PRINT 

RETURN 

»*** [ END OF PROCEDURE ] *** 
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1820 '*** Compute and Print the Average Grade *** 

18 3 ' ' 

L840 FOR. 'COMPUTE. AVG! = 1 TO 60 

1850 ' "Stftfi = "SUM! + 'GRAOE.tlET'! (COMPUTE. AVG ! ) 

18 60 NEXT COMPUTE. AVG! 

187 AVERAGE. GRADE! = SUM! / 6 

1380 PRINT "-- ■---> Average Grade <--■ -" 

-189 PRINT • ■ 

1900 PRINT AVERAGE. GRADE i 

1910 RETURN 

1920 « 

1930 «*** [ END OF PROCEDURE ] *** 

1948 « 

1950 * -....■ 

1960 DATA 75,80,90,72,65,83,75,65,83,40,90,95 

1970 DATA. 82^74, 88, 97, 66,73, 95,89,76,43,72,88 ' • ' 

198 -DATA 60,42,55,87,82,90,97/6 3,85,88,75,64 

1990 DATA 58,35,70,70,86,50,80,60,78,91,89,80 

2000 DATA 43,58,80,95,90,90,70,80,84,93,72,80 
•2010 DATftVjohn", "Mary", "Sandy", "Lou", "Frank" ' 

Listing #2 

410 CLStDIM G(5,12) VGL(60) :GOSUB 6201GOSUB 750:GOSUB 950 

411 GOSUB ■ 1150:GOSUB- 1300-.GOSUB 1420:GOSUB 1S50:GOSUB 1690 

412 GOSUB 1800:END 

620 FOR RD=1 TO 5: FOR CD=1 TO 12:READ G (RD , CD) : NEXT CD 

621 NEXT RD; 621 -RETURN 

750 PRINT TAB(8)'-;c-FOR --TMsl TO 12:PRINT TM; H "' ; 

751 IF TM<10 THEN PRINT""; 

790 NEXT TM;PRINT:FOR RP=1 TO 5:READ S$ : PRINT : PRINT S$ ; 
7.91, PRINT. TAB (8) ;:PGR *CT=1 TO 12: PRINT G(RP,'CT);" "? ' ' ' 
79 2 -.NEXT CT:NEXT RPrRETURN ; 

9 50; PRINT: PRINT 

951 PRINT" -■ > Grades for the Sixth Test <- 

952 PRINT:RESTORE 1990:FOR C6=l TO 5 

953 READ. N6$rPRINT N6$?:PRINT TAB (20) ;G (C6 ,6) : NEXT C6:PRINT 

954 PRINT:RETURN 

1150 PRINT"-- — > Sandies Grades < ■ ~":PRINT 

-1.151 -PRINT" Sandy ";:FOR SN=1 TO 12:PRINT G(3,SN);" " ; 
1152 NEXT SN: PRINT: PRINT:RETURN 

1300 RESTOREiFOR GG=i TO 60:READ GL(GG):NEXT GG:RETURN 
T4 2-#*T?OR "0=1' TO 59:FOR 1=0+1 TO'60:IF GL (0) >GL ( I ) THEN 1480 
1470 .SWAP GL(I) ,GL{0) 
1480-TiE'XT It'NEXT -OrRETURN ' '' 

1550 PRINT" .--___> Sorted List of Grades < •-" 

1551 PRINT:FOR S0=1 TO 60:PRINT' GL(SO);" ";:NEXT SO 
1552- PRINT: PRINT: RETURN 

1690 PRINT" — > Highest Grade < -";PRINT 

1691 PRINT GL{1) : PRINT: PRINT: RETURN 

1800 FOR CG=1 TO 60 : M=M+GL (CG) : NEXT CG:A=M/60 

1801 print"--- — ---> Average Grade < ":PRINT 

1882 PRINT AJRETURN 

1940 DATA 75,80,90,72,65,83,75,65,83,40,90,95 
1950 DATA 82,74,88,97,66,73,98,89,76,43,72,88 
1960 DATA 60,42,55,87,82,90,97,63,85,88,75,64 
1970 DATA 58,35,70,70,86,50,80,60,78,91,89,80 
1980 DATA 43,58,80,95,90,90,70,80,84,93,72,60 
1990 DATA"John" ,"Mary" , "Sandy" ,"Lou" , "Frank 
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**************************************************** 

SECRETARY'S REPORT 01 LICA MEETING OF 18 MARCH 1983 
*************************************************** 

ASHOUtlCBMBiTS MID REPORTS 

There will be a NY Computer Show at the Nassau Coliseum in Uniondale 
from 14-17 April. 

The Trenton Flea Market will take place on 16-17 April. 

Dave Schwartz discussed Gemini printers. They are similar to Epson 
but with more features-. 

Jack Altman, publisher of Computer and Video, Marketing magazine, will 
publish a one page free ad for LICA and will sell the magazine for 50 
cents at the LICA meetings. 

Al Stone, the president,- emphasized the advantages of being a LICA 

member : 

Subscription to the Stack newsletter. 

Opportunity to regularly hear informative speakers. 

Contact- '.with other knowledgable computer enthusiasts. 

Free raffles. 

********************************** 

Dave Minott discussed new products 
********************************** . 

TRANSFORM ($29.95) is a structured preprocessor for Basic. It 
supports local and global variables and the use of labels; line 
numbers may be omitted. The documentation is a good tutorial on 
structured programming. 

NEVADA PILOT ($29.95) is designed- for writing programs for 
testing students. 

Phil Cochems reported briefly on the status of the LICA Fair to be 
held on Saturday, 4 June. 

♦ ♦A************************************************************ 

STEVE PERRY - PREVBSTI01 AID REPAIR OF COMPUTE! SYSTEM FAILURES 
************************#*****************«■***#**************** 

Steve, a LICA member, has wide computer experience and runs his own 
computer repair business. His useful and informative, talk is 
summarized below. 

Purpose: Limit system downtime and repair costs. 

Emphasis: Preventive maintenance. 
Advance preparation. 
What to do when failures occur. 

....continued on next page 9 
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SECRETARY'S REPORT (Continued) 

Preventive maintenance; What to do? 

CI earn" og 
Lubrication 

Visualy check for loose connections, signs of overheating and pinched 
cables . 

Advance preparation: 

Build a .service file on your equipment. 

Obtain diagnostic software and typical algorithms. 

Know the response of your system when it is working properly. 

Keep spare parts handy; fuses of correct rating. 

IC's (only if socketed). Obtain 
schematics, component locations, service manual 

and modification notes. 

When- failures' occur: 

1. What happened? What .were you doing'? Were you able to 
recover? Is~it repeatable? What is the nature of the failure? 

2. Investigate. Start with the simple and obvious. Proceed to 
more complex possibi 1 i tes . Use a divide and conquer approach. Take 
notes of what you did. 

3. Getting professional help. 

a. Take or ship only the defective module. 

b. Include service file, observations and modification notes. 

c. Advise of any modifications by manufacturer. 

-d. Advise of any modifications that you made. I 

e. Get an estimate of cost and delivery time. ■• . j 

f. Establish a not-to-be-exceeded price. » * 

g. Provide work and home phone numbers and when" and 
where to call. 

h. Pack properly for shipment. 



BI-TECH Enterprises of Bohemia demonstrated an Epson Model QX T 10 
Computer. It uses a Z-80A microprocessor running at 4 MHz. It comes 
with 64K RAM expandable to 256K, 2K - RAM with battery backup and bank 
select facilities. Two 5 1/4 double-sided drives each with 340K 
capacity; the controller has DMA capability. The 12" green monitor has 
high resolution graphics capability driven by an NEC 7220 graphic 
display controller. 

The basic computer with CPM is $2499. An enhanced model with a specal 
keyboard having many dedicated special function keys, special VALDOCS 
word-processor etc etc software, "and i,5€K of RAtM is $2995. » 

Also demonstrated was an Epson Model HX20 portable computer with a bar 
code reader ; also a TRS80 with a hard disk. 

Frank Davidoff, Secretary 
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Using The LICA Bulletin Board System - At Levy 

At the request of many LICA members, ! have written a user's guide to the LICA C8BS(R>. All of the 
ssages and prompts from the bulletin board have been downloaded to demonstrate exact screen displays 
i to save words of explanation. If you have questions, please submit them to me- I may not be clear, 
i other members may share your confusion. This issue of the STACK contains the first steps. Each 
cceeding issue will continue the adventure through modemland. 

My assumption is that you are a first time user. Since I have had some pretty weird experiences 
th people, their expectations and modems, I will walk through the procedure one step at a time. 
THING will be omitted. This is tedious but at some point some member might need the reference. Since 
a Bulletin Board Is in ANSWER mode you should set your modem to ORIGINATE mode. You should be in 
LL DUPLEX with no echo. 

-st: dial (5165 561-6590 

The phone rings, the C8BS<R> answers and you should hear a beeeep... This Is a response tone. You 
must now acknowledge the sound by sending a carrier tone from your computer /modem setup. This is 
not done by hitting carr.a!^_returns_. 

;ond: According to the protocols set by the manufacturer of your modem, send an originate (carrier 
tone) to the bulletin board. 

Ird: Listen for tones going both ways, the sounds are quite distinct. If you hear two signals on the 
phone, ' it is -time to' start hitting some carraige returns. On some computers this Is the ENTER key. 
No sense getting panic struck, five or six times should be enough. 

If nothing happens go back to step 3. : 

If you have started from step 3 more than once and not had success, go back to step 1 

dial (516) 561-6590 

if you did succeed, you will see the following screen displays. 



CBBS(R) VER 3.3 

LAST LICA MOD - 5/23/82 

04/05/83 22:56:46 

XXX WELCOME TO CBBS(R) / LONG ISLAND XXX 

TERMINAL NEED NULLS ? TYPE "N" WHILE THIS TYPES: 

CBBS(R) / LONG ISLAND HAS ESTABLISHED AND IS MAINTAINED 

BY THE MEMBERS OF THE LONG ISLAND COMPUTER ASSOCIATION INC. 

(lica) ' , ; 

DIRECT ANY QUESTIONS, COMMENTS, CRITICISMS, OR SUGGESTIONS TO: 

HARVEY FISHMAN (212) 258-7276 (8:00 - 10:30 PM EST) 

- OR - 
DAVE MINOTT (516) 825-2282 . (ANY TIME - RECORDER) 

CONTROL CHARACTERS ACCEPTED BY THIS SYSTEM: 
<<<*** T0 SKIp WELCOME, HIT CONTROL-C OR C ***■>•>> 
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ASCII 


CTL 


CHARS 


CHARS 




DELS 


TT . 


C 


K 


K 


H 


N 




R 


S 


S 




U 



CHARACTER DELETE 
CANCEL OUTPUT 
FUNCTION ABORT 
START SENDING 5 NULLS 
RETYPES INPUT LINE 
SUSPEND OUTPUT 
LINE DELETE 

IF YOU GE T STUCK, TRY: CTL-K CR K THEN C/R UNTIL YOU BAIL OUT BACK TO THE MAIN MENU. 
WHENEVER WE «<-TP TO "C/R", WE MEAN YOUR "RETURN". OR YOUR "ENTER" KEYS!! 

-~~~ > PRESS "S" TO STOP OUTPUT, "S" TO START IT AGAIN < 

(NO DATA WILL BE LOST) 
"FRILLS": CTL-W RETYPES WORD 

CTL-L SHOWS WHAT COLUMN YOU ARE IN. 
(N COWAND MODE, ENTER THE V( IDE05 COMMA?®. THIS WILL ALLOW DISPLAYS 
THAT RESPOND TO CONTROL-H TO PHYSICALLY BACKSPACE OVER DE LET IONS. 
LICA/CBBS SUPPORTS DOWNLOADING. USE THE »F« COMMAND. 
NOTE; IN MOST CASES YOU WON'T HAVE TO USE THE CONTROL KEY. 



Bulletins updated March 20, 1883 

j — >•#♦ T he second annual L.I.C.A. flea market will take 
place on June 4, 1983 from 9 AM to 5 PM at 
The Association for the Help of Retarded Children 
115 E. Bethpage Road Plalnvlew, N.Y. 
For further information call: 

A I Levy • (516) 293-8368 

Phil Cochems .'(516) 333-4213 
— >*** The Trenton Computer Festival will be held on 

April 16 and 1? at the Trenton Stats Teachers College, Trenton, N.J. 
__>*** -rhe next meeting of the Long Island Computer Association 
will take place on April 15, 1983 at the tew York 
Institute of Technology, Building 500 at 8:00 PM. 
— >*** The next 8080/S-100 Sub-group meeting will take place on 
April 8, 1983 at the New York Institute of Technology, 
8usidtng 500 at 8:00 P.M. . 
__>•*#* The mKf ihs-so Sub-group meeting is April 8 at the 

New York Institute Of Technology, Building 500 at 7:00 P.M. 
__>•#* Directions to the New York Institute of Technology (courtesy of AI Levy) 
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Y/N: IS THIS YOUR FIRST TIME ON THE SYSTEM! 
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Micro Tho ughts - AS Levy 

Last time I talked about HEADER records in a data file. My kicks come from taking an Idea and 
expanding it to its logical conclusion. As a result 1 decided to put more Information into the header 
than the. number of entries and the next available record. One thing led to another and soon I was 
leaving the last date the file was updated plus other information in the header, Before long i was- using 
more then one "header" in the data file. At some point ! decided to include the following information in 
the bea'.e- records such as: TOTAL NUMBER OF RECORD - NEXT AVAILABLE ENTRY - NUMBER OF 'FIELDS - CHARACTERS 
PER FIELD - NUMBER OF PROMPTS FOR ' USER - NUMBER OF CHARACTERS PER PROMPT - PROMPTS 

Lets analyze this much. Assuming you are writing a Mailing List which allows for 500 names and 

addresses. You want to have C4> four fields. Let us say that the first field is a spare for 4 line 

addresses (c/o types), the second is for the name, the third is for the street address, and the last is 

for the city state and zip code'. ' ' ' { i. 

The first field name isJISPARE" and you vr-mt to allow 30 characters for the field. The second, field name 
is "NAME" and you want to allow 30 characters for the field. The third field name is "ADDRESS" and you 
want to. allow 30 characters for the field. The last field name is "CITY / STATE / ZIP" and you want to 
allow 30;. characters for the field. 

For the person who does not recognize the terminology. A-record in computer talk is similar to a line of 

information on a typewritten page. It is usually defined by a carralge 'return. A field is the • space 

which holds particular information within the record. For example: 

NAME ' ADDRESS ZIP 

GOMEZ, ALFRED 50 G0NZ0L0 STREET • 90878 - ' 

The record starts with GOMEZ and ends vlrh 90B76 . The first field contains GOMEZ, ALFRED. The second 
field contains 50 GONZOLO STREET and. the last field contains 90876. There! - 

If I were to have all of the necessary information in the header for the above mentioned mailing list, 
the header record would contain the fol lowing info: ■ ' ', 

total next 8 val!able fields prompts cpfl cpf2 cpf3 cpf4 cppl cpp2 cpp3 cpp4 : 

500 002 004 004 030 030 030 030 005 004 007 018 

For the curious, cpf 1= characters -per field #1 - ' - '' 

cpp1= characters per prompt #1 ... 

So , the header will appear as fo I f ows : 

500 002 004 004 030 030 030 030 005 004 007 018 SPARE NAME ADDRESS CITY / STATE /ZIP 

500 RECORDS AVAILABLE 

START ENTERING INFORMATION IN RECORD #2 (#1 is used for header) 
THERE ARE 4 FIELDS FOR EACH RECORD 
THERE ARE FOUR PROMPTS USED ( One for each field 5 
THE FIRST FIELD ALLOWS FOR 30 CHARACTERS 
THE SECOND FIELD ALLOWS FOR 30 CHARACTERS 
THE THIRD FIELD ALLOWS FOR 30 CHARACTERS 
THE LAST FIELD ALLOWS FOR 30 CHARACTERS 
THE 1ST PROMPT HAS 5 CHARACTERS 
THE 2ND PROMPT HAS 4 CHARACTERS 
THE 3RD PROMPT HAS 7 CHARACTERS 
THE 4TH PROMPT HAS 18 CHARACTERS 
THE 1ST PROMPT IS "SPARE" 
THE 2ND PROMPT IS "NAME" 
THE 3RD PROMPT IS "ADDRESS" 
THE 4TH PROMPT IS "CITY / STATE / ZIP"' 
Is this useful? Is it trite? Well, Its a beginning and you aint heard nothin yet. 
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i am glad to report that ail of our members' noV- belong to llW Since no Information has been received 
regard. ng other systems, this coi»r, will be used for two purposes +emporari |y. ( 1 ) To report on 
activities of the Poly group and (2) to report to UCA members the features, advantages and disadvantages 
of this "v ift*a.;i»« system. ; ■ '" 

We all tope that Sam Rosenfeld will soon recuperate from his recent heart attack. A member of L1CA for 
just two months, Sam was already doing his share by collating, stapling and helping with the STACK as 
well as collecting dwj s at the general meeting. GET WELL SAM, we miss you, 

A+ our second meeting we discussed SYSTEM commands, in some systems these are called resident commands. 
«os+ system commands can be abbreviated to one or two letters. Last time w discussed ,1 1 ST or U LIST 
faults to the system drive- ff none ls specified. To specify a'drive the number is typed after a space 
such as L 5. This will list all flies on disk drive 5. Upper/Lo^r case is not important, I 5 works as 

W€? It* ■...-...■■ . ;,r. 

TJ n V m JL mi f ° rmatS 3 diSk *° P °' y F ° rma+ * l+ mtkS as f °"°* : The user types (NIT, PROMPT -which 

or.ve. , RESWNSE 2. It takes about if seconds for 'a 5 " and about 20 seconds for 0SD0 8" disk to be 
formatted. |f VOU try to INIT the system disk poly responds "I can-t WIT a system disk." INiTING a 
system disk is don© by -using 'on samh' other drive." ' "' ' ' " ' ' ' ' 

IWGEor IN is used to completely copy from one disk to another. The dialogue follow: IM "from *hich 
«T« L " h ' Qh 4rtW " 3 " work,n 8»— " 't takes *o u t the same tl«e as INIT. The transfer rote for 
- »SD visk. Ii._125.000 btts/sec 5" DSDO is twice as fast and 8" DSDD is 3 times faster. IMAGE will 

°\ VOU . 1 °- fske - mf *«' */**«» d'sk, image from the system resident drive to any other and when the 
~opy is complete the request is made to "replace the system drsk and hit a c/R" 

TYPE as In most computers means "display on the screen "ih at ever " i s in 'the file." T Is the abbreviation 
rf +VPe * T Sfdck «ou Id display the current edl+Jon of the STACK on the screen. Control S is not used 
to pause the screen dfsp.ay. The disp lay hums' after 'each page is displayed. it can be scrolled 
dtspHyi. ^ SlOWed d ° M mlm ai+ernate «""«**• Hitting any key will cause, the .next page to be 

PRINT or PR.il i prlfi+ the fi la specified. PR Stack w! I I print the STACK on the printer.. Any device 

l , m ,. ^ SCr€ * n m8Y 68S,,y ta defined * ^-printer. Since Pofy has a universal., printer driver' 
installation of a new printer Is not much fuss. 

DL puts on the video screen all the "deleted" file names f or ' a particular disk. DIRECTORY or DIR will 

send the directory to the printer much as LIST sends It to the screen. . . 

^J! 1 " Se+ +he pr,nfer T °P of Pa g e Function or clear the screen if 1t is the default printer. -i - 
f'T ° r REN ' S used to reTOme 8 ">•• The syntax is REN Stack STACK. Extensions need not be included. 

To change an ..extension while specifying sane drive other than the system driv» 

REN i <3>STACK.TX <3>STACK.BB - " ' ■' • ' ' .:......■• 

WY or OP is used to copy files. The syntax is COP STACK <2>BACK0P. The first named is -the from .file. 

DELETE or ret will delete a file. UNDELETE or UNDE will undelete a file. ' " ' .'."', 

PACK or PAG will clean off all deleted flies and make room. 

W«E or ON allows the user to nam* a disk. This is not a dummy file. Each disk has a real .name. .. • - 

Ofcf places a machine language; program -into RAM. 

START starts the program in memory. • ' : .''... 

SAW saves memory location on a disk. A file na»fe must be given. " ' 

ZAP zeros al I of user memory. .,.,-•' - ' ' 

"Sniff" checks a disk for "bad sectors" • • ' : 

EDIT opens a file for editing. .-.••. •• .-••'•-• - 

„^ I The , r T eS ° terlC ^-^s will be saved for a later mating as will sab- directories. It should be 
mentioned that commands c 0n be combined such as ZP means ZAP and PACK and ZC - ZAP and COPY etc. ^ong 
,te mrm '"^resting resl<jen+ o^g^ mf yet discussed ^ (x>n md R£ENTER , 
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NOTICES AND REPORTS 



PCU6B - Our next meeting will be on April 8th at 7:30 at the NYfT, Commack 
Branch. Our main speaker at our next meeting will be from dBase 1 ! . Is there 
any defense adequate for non support? 

S/100 no report ' . 

TRS no report 



APRIL 14-17 NEW YORK COMPUTER SHOW NASSAU COLISEUM 

APRIL 16-17 TRENTON PLEA MARKET 

MAY 22 Li MARC 

JUNE 4' ' LtCA FAIRE at AHRC 



Next month we wilt be reprinting an article- by Frank Stearns, a- respected 
consultant from the state of Washington. The article deals with the care and 
maintenance of Shugart 5 inch drives. This report is thorough and written in 
layman's language. Mr. Stearns has kindly consented to sending me a disk with a 
few of his already published reports. 



dBASE I I course 



LICA is sponsering a dBASE II course to be given by BOB KOWITT. This will take 
place some time In May, the exact date to be decided. Cost of the course Is $30 
with the proceeds going to LICA. The enrollment is limited! For details 
contact Al Stone (phone numbers listed below) or LESTER ■ LISTZKER at 
(516) 621 -7780 ' 



We are still looking for volunteers for both the LICA FAIRE and to man the booth 
at the Nassau Coliseum for the New York Computer Show. Volunteers are urged to 
call LEONARD PRINTZ with regards to the NY COMPUTER SHOW (516) 379-8743. 
Volunteers for the LICA FAIRE are urged to call PHIL COCHEMS at (516) 333-4213. 

If you have problems reaching either of these members try calling AL STONE at 
(518) 731-1649 or (5165 731-7796, or AL LEVY at (516) 293-8368. 

We need people to distribute flyers, contact dea I et s , . he I p with publicity, -work 
at the FAIRE etc. This is an Important project. If you intend to help-, call 
now. Much of the work Is already under way. We are looking for' new product 
dealers for the Indoor displays, lecturers for seminars, people to man the LICA 
table to help the public, vendors for the outdoor area. Mention the FAIRE' to 
all of your friends, call Bulletin Boards, write to computer magazines. - At 
worst we will duplicate each others moves and this will only reenforce the 
momentum . , 

.... .-.■:.:■■■■■ -.: : ■■■ ..-. ■■-'.. >■■.■■■■ ■'■;■■ ■;■;.. ■<^!< "':■ ' ■.■■!.■'" " ■'' ' : ' ( -' ''"■■" - : '■■'"'■ 
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Long Island Oonpufer Assoc Satlan s inc. - Special Interest Groups 



SUB-GROUP 
6502 
680X 
IBM 

Commodore 
PolyMorphlc 
S-100 
TRS-80 

Color Computer 
NEC PC-8000 

Apple UG 



CHA1RWEM 
Steve Perry 
Roger Kaucher 
Marvin Freffetd 
Phi S Cochems 
A I Levy 

Richard Wilson 
Ed Zuf Ikowskl 
Now 
S.Perry Jenkins 
jerry 'Worthing 
Looking For Cha 



PH0NE(516) 

744-6462 
798-8746 
724-0574 
333-4213 
293-8368 
747-4241 
938-3320 
Form i n g 

Box 62 Southampton NY 

735-2952 
Ir-perscn CaT i A! Levy 



rtsetfngs Each ttonth 



2nd Friday 7:00 
3rd Friday 7:00 
3rd Friday 7:00 
2nd Friday 7:30 
2nd Friday 7:00 



11968 



All meetings, except 'IBM PC/UG and 6800 UG are held at the New York institute of Technology, Old Westbury 
Campus. LiCA meets each month on the third Friday evening at 8:00 In Room 508, Building 500, See the back 
cover of the Stack for map and directions. Our next general meeting will be held on the 15th of April, 



The Stack Is now available at the following locations 

•*»»»»#»»*»»»***»*«»*»»»»».#» 1 n HHMt »*» <HHHHHHe »# iHHHHHHH ,» 



Bi-Tech Enterprises Inc. 108 Car lough Road 
Compu-A 1 d ~ 



Bohemia 



222-68Braddock Avenue' 



Computer!! ics 



ComputerLand 



14 Cold Sp ring Road 



79 Westbury Avenue 



Queens yf | (age 
Syossef 
Carle Place 



Computer I and 



6181 Jericho Turnpike 



Coram ack 



Computer Le a rning Center 78 Wolver Hollow Road 
Computer Microsystems 



Brookv file 



1196 Northern Blvd 



Manhasset 



Cousins Video 



1238 Hicksvli le Road 



Future Visions 



70 Broad Hoi low Road 



J^assapequa 



Harr i son Computer Center 2263 Broadbof low Road 



Melville 



Programs Unl Imlted 20A Jericho Turnpike 



E Farmirsgdate 



Hlcksville 



Lynbrook 



Jer icho 



Programs Unlimited 



Smith town Mai I 



Sm f thtown 



Programs Unl Imlted 



Sc^ftware_BnporU 



5002 Jericho Turnpike 



Commack 



151 Mineola/WH I Is Avenue 



Spartan Electronics 



The Computer Touch 



- :<•■ "• , : ' • 



Roslyn Hghts 
Commack 



T: i ■::■:■::-!_ "_ - ' ■ ,: ■ 
World Computers 



709 Route 110 Metvll le 

• 3041 Hempstead Tpke (2nd Floor) Le'vfttown 



'247 "Old Co untry Road 



Hlcksville 



In an effort to cover our costs of duplication and mailing, and to provide a more extensive monthly 
edition of THE STACK, commercial display ads are accepted In 1/4 1/2 and Full Page sizes. Minimum 
participation is for three months. The three month rates are $50, $75, and $125 repectively. Copy need 
not be the same each month. Camera ready preferably. Type setting & layout work available at additional 
charge. All checks should be naefe payable -to LICA. 

The Long Island CcftpirfBr Association, INC. is open to everyone, amateur or professional with an 
Interest in computers, computer applications, program fng, or related subjects. Dues are $12.00 per year 
which Includes monthly Issues of this publication, Tne STACK is mailed to other computer clubs on an 
exchange basts as well as to various technical publishers. Peralss lor, for reprinting or quoting Items in 
The STACK Is granted providing that credit is giver. 4 a copy of the reprint is sent to The STACK. 
■Members can vote in club elections, & place non-commercial classified adsCat no charge) and commercial 
ads at nominal cost. Member articles and other data affecting The STACK must be received by the 15th day 
of any month, to be published in the following Issue, All copy should be sent to: At Levy P.O.Box 
71 Hlcksville N.Y. 11802 (518) 293-8388 



SS^SI SSSS1SIS.SE st-.s 



CLASS! F 

MXXHIWTtl©, record keeping 4 Tax Services provided weekly 
monthly, or quarterly (basis to suit). Sales Tax, Employer 
Wag© Forms, Bank Records, Cash R«ce!pfs and Disbursement 
Journals, General Ledgers efc«S«all business and personal 
accounts Invited. AILEEN HARRISON: (516) 938-6789 



SED AOS 

ssffisassassss*!B^asa!SS32assssiss.?s^.S!agaaassgsgsagsss 

H X 15 {2 P«T} CONTINUOUS FORM PAPS?: Limited 
quantity, first -come first served. Just $20 per 
carton, $15 per carton to LICA members. Paper 
has a, company logo In lower right hand corner. 
Good for rough copies and *>tr> house" printouts. 
Call A! Levy -{516) 293-3568 



mULTtSTRUCE RIW3NS: for Diablo HYTYPE H $5,00 each 
LOW COST PRfHTlNG;Type setting, collating, punching and 
binding services, Al Levy (516) 293-8368 



REPAIR SERftCE: KtM»SYM,AIM~65 Single Board Computers. 
HEM 0KI0ATA MODEL 82A PRINTER fully tested with full 
warranty $499, interface cab I as for most personal' 

computers are available. 8MC COLOR MONITORS UNDER $300 
CAU:Steve Perry (516) 744-6462 



FOR SALE OR IRAK Toolkit for original roms pet, 200 8k 
programs on tape. Old copies of MICRO .CREATIVE COMPUTING, 
BYTE, PEOPLES COMPUTING & OR DOSS'S JOURNAL, Call: 
Phil Cochems < 516) 333-4213 



CAD TOOLS: Anyone Interested In CAD fools for personal 
computers? We offer schematic entry, verification,' 
component placement, autoroutlng, PC photo/pen plotting, 
NC Dseslgn, 58 Hillside Ave, ¥11 listen Park, NY 11596 
Phone: (212) 358-8764. 

OWOTER REPAIR PERSON 1AMTO; must have car. Salary plus 
commission based on experience. . plus expenses for travel. 
To repair S/100 rack and Phts (In thr- field.) Must Know 
CP/M DOS and SOL DOS. Responsible, mature, and good 

appearance are a necessity. Can lead to departmental 

responsibility, CALL; M Lafvanl (516) 798-3819 



NEXT ISSUE 

USE THIS SPACE 
TO PLACE YOUR AD 



IBM SYSTEM/38 PnOGRAKMERS: An exceptional 
opportunity to jo-t.n a dynamic young Data 
Processing firm. Excellent salary and benefits. 
If you have over two years experience In 
programming preferably on an- -tSM/38 using COBOL 
give us a call at (516) 293-0144 or sand resume 
to The Wheatly Group, Ltd. 425 Broad Hollow Road 
Melville, NY 11747 



FOR SALE -. DlftBlO HYTYPE i Cables, case, power 
supply and tractor. Has serial Interface that 
emulates .1640, Uses Centronics, serial or IEEE 
488 Interface. $875 or $550 without Interface, 
Jerry Harrison (516 5938-6769, 



SELL or TRADE: Lear Sf* jU-r ADM 30 console, Com 
Data Modem 302F-33, G.E. Term t net 30, Teletype 

Modal 53, Call: John Cemarata (5165 921-3919 

SH06ART 801 DRIVE lata model with Power One I 

power supply, signal and -power cables, complete 
In metal case and wtth all manuals $250, Call; 
Don Victor son (516) 757-0768 

ssssBSsissiissssffiaajssassstffisffissssssisssssasaffissasass 

TROUBLE WITH PF.A~''Jrfn..:$? Get ahead on your own! 
I'll help by providing these low-cost services, 
tailored especial I y.' for computer people: 
{*)" Proven resume writing and editing ( samples 
upon request), (*) Job search - and follow up 
skills, ' (*> Interview techniques and practice, 
(*) SPECIAL RATES for entry-level grads, <*) 
Packages and group rat#s available. Any or all 
of the above offered by an EDP ■ employment 
consultant, computer buff with college teaching 
log experience, CALL: Phyllis Lehman, or leave 
message at (212) 636-5716 or (516) 427-6405- 



eaSS*SSggasgSSS3S*SSS3ilSgSSKSS3g.3SS 
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Ajj classified ads w'JX .be reiwoyiect after thay have been published for thrae consecutive Issues, The reason' 

for this, wembers do not notify us when Items have been sold etc an* some ads have run In. an Infinite loop. 
If yoy wish your FREE ad to be continued, the copy, must be. submitted either In writing or via moctem and it 
most be dated. Commercial ads will of course, be published for the paid period of time, , - 



'Ou'-.i no:;:-: C ard AJvec .. '. mix, 

The STACK will be printing a page of business cards. Yours can be 
included. Cost to members is $25' per year, non members $50 per year. 
Your business may be computer related or not. 



(212)465-8529 
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Compu-Aid 

MICRO-COMPUTERS 
SALES • SERVICE - SUPPLIES 




COMPUTERS 
VIDEO 



SPEGYRUKi PROJECTS 



business 

Operating 

Sypport 

CSroyp 

(516! 889-8779 



ELECTRONIC ORDERING 

1-516-293-5519 

CBBS 



?22-68 BRADOOCK AVE 

QUEENS VfLLAGt. f4EiV YQKt 11 K:3 



BRUCE E. BARC'HAK 

JOHN P. GRECO 

COMPUTER SYSTEMS. CONSULTANT 



4584 AUSTIN BLVD. 
ISLAND PARK. N.Y. 11558 



DAVE SCHWARTZ, OWNER 

1-516- 293-5698 

VOICE 



QDHi^] Enterprises 

•I' NOK1H VV\V\ AVi'-Nl'l- 
NORTH MASSAi'tULW. N.Y. II .-* 

:I ! U'HOM' MAtl & H H TRONIC '.'KliE'RlNG )V- 

tOM»'t IhK ITRIJ'HERAl V Sl'I'PI ih.V ,*< VC'-^OKIk.'' 

■\NI. O'l Ml-R ASSOtf i ! !> i i( U ,T»!t > 





The Computer Consultant 

Robert Kowitt 

1727 N. Jerusalem Rd„ E. Meadow, NY 11554 

(516)483-5781 or 4S1-85S9 



93-15 88th DRIVE (212) 441-2807 (VOICE) 

] IAVEN, N.Y. 1 1421 (212) 441-3755 (DATA) 
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BOX 924 

MILLER PLACE, N.Y. 11764 
(518) 744-6462 

PERIPHERALS and SOFTWARE 

lor 6502 MICROCOMPUTERS 

en HOE DISTRIBUTOR 

Programming and 
Repair Swvlce 



Steven e. pmm 



w 



(516| 669-6147 



ANGELO TULUMELLO, Ph.D. 

Consulting Chemist 



P.O. BOX 314 
LfNDENHURST. N.Y. 11757 






11 S K Microsystems 

M iSiNI- '-:,S CONSULTANTS 
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Nama: 



Address : 

™ — ™ — 



CjJ^v/Statej 



£5iSMlS[ m E:3itl23 ( ¥lj Owned: cqFTiQHAU 



SSIIIP CPfassa Prlrit! 



_ii£JL_ 



Date: 



Refsrsncsci to UCA t.-* 



P lease aoc lose $12,00 DUES ana sand to: 
L.I.C,.*. P.OJBOX 71 



